home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 06 - 1990 / 06.04 Apr 90 / List Demo Project / Memory Utilities < prev    next >
Encoding:
Text File  |  1989-08-02  |  866 b   |  40 lines  |  [TEXT/PJMM]

  1. unit Memory;
  2. interface
  3.     procedure mySetHandleSize (h: handle;
  4.                                     newSize: size;
  5.                                     var error: boolean);
  6.     function myNewHandle (logicalSize: size;
  7.                                     var error: boolean): handle;
  8.     procedure myHandToHand (var h: handle;
  9.                                     var error: boolean);
  10. implementation
  11. {*********************************************}
  12.     procedure mySetHandleSize;
  13.     begin
  14.         if not error then
  15.             begin
  16.                 SetHandleSize(h, newsize);
  17.                 error := (memError <> noErr);
  18.             end;
  19.     end;
  20. {*********************************}
  21.     function myNewHandle;
  22.     begin
  23.         if not error then
  24.             begin
  25.                 myNewHandle := NewHandle(logicalSize);
  26.                 error := (memError <> noErr);
  27.             end;
  28.     end;
  29. {*********************************}
  30.     procedure myHandToHand;
  31.         var
  32.             err: OSerr;
  33.     begin
  34.         if (not error) and (h <> nil) then
  35.             begin
  36.                 err := HandToHand(h);
  37.                 error := (err <> noErr);
  38.             end;
  39.     end;
  40. end.